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MODULE MOUNT ( cue s 
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BEGIN s 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie ALL RIGHTS RESERVED. 
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This routine performs the MOUNT function. 
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LIBRARY SYSSLIBRARY:L 18,32"; 
REQUIRE ‘SRC$:FCPDEF B32’; 


3 


1$-}0-198 19:30:88 biScdUmGmaStencchiix.seeamount.a32;1°°% «18 


ca cit ee ie a a “4 


2 
i 
—— 

: he 
“vn 
@Bew 
vo 
es 
—— 
oo 

fe te +) 


4 00:47: VAX-11 Bliss-32 V4.0-742 P 3 
ths theta hte eRe smounr.os2:1° 25 


GLOBAL ROUTINE MOUNT : L_NORM = 


+4 
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: FUNCTIONAL DESCRIPTION: 


This routine performs the MOUNT function. It checks that the ACP 
is of the correct type and then turns on the mounted bits in the UCB. 
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CALLING SEQUENCE: 
MOUNT () 

INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
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! OUTPUT PARAMETERS: 
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BEGIN 
BIND_COMMON; 
LOCAL 
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EWN 
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AQB : REF BBLOCK; 
AQB = .CURRENT_VCB CVCBSL_AQBI; 


IF .AQB EQL 0 
THEN ERR_EXIT (SS$_NOAQB); 


!' Check the ACP type code in the AQB, having been set by the MOUNT command 
to indicate the nature of the device. 
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IF .AQB CAQBSB acpryee) NEQ AQBS$K_F11V2 
R .AQB CAQB$V_XQIOPROC) 
THEN ERR_EXIT (SS$_WRONGACP) ; 


: Set the bits in the UCB. 
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CURRENT _UCBCUCBS$L_DEVCHAR) = .CURRENT_UCBCUCBSL_DEVCHAR] OR 


13 | 
16-5 =1984 00:47: VAX=11 Bliss-32 V4.0-742 : 4 
eae ee 8 teks PTS UmGMASTER SEE TIX. SREIMOUNT.B32;1°°%" (2h. 
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: 128 1117 (DEVSM_MNT OR DEVSM_DIR); | : 
: 130 1118 ' Bump RMS directory sequence number to avoid races with device ; 
3 : ; 1 y being mounted and RMS testing and storing an unarmed sequence number. : 
: 4 1 | ; 
3 ! - 1% 5 CURRENT_UCB CUCBSW_DIRSEQ] = .CURRENT_UCB CUCBSW_DIRSEQ) + 1; : 
: 4 1125 2 RETURN 1; | ; 
3 1126 | ; 
; «(138 11 END; ! end of routine MOUNT ‘ 
“TITLE MOUNT : 
IDENT \V04=000\ ; 
.PSECT S$CODES,NOWRT,2 
0000 00000 «ENTRY MOUNT, Save nothing : 1060 ‘ 
50 98 AA dO 00002 MOVL =-104(BASE), RO ; 1100 : 
51 10 AQ D0 00006 MOVL  16(RO), AQB : ; 
95 12 QO00A BNEG = -1$ : 1102 i 
0314 F BF 88908 CHMU #788 3 1103 : 
3 0010 RET 3 ‘ 
02 15 Al 1 00011 1$: CMPB Namal #2 ; 1109 3 
05 12 O0013 BNEQ $ : 3 
05 14 Al 04 €0 0001 BBS #4, 20(AQB), 3$ 3; 1110 3 
031¢ «8F BF O001C 2$: CHMU 86—s«#796 : 1111 ; 
04 00020 RET ; 3 
50 94 AA 00 00021 3$: MOVL -108(BASE), RO ; 1116 3 
38 ad 00080008 8F CB 00025 BISL2 #524296, 56<RO) 3 1117 3 
50 94 AA DO 0002D MOVL -108(BASE), RO 3; 1123 3 
OOAC CO B86 00031 INCW 172(R0O) ; é 
01 DO 00035 MOV! ite ae : 1125 ; 
04 00038 RET 3 1127 ; 
; Routine Size: 57 bytes, | Routine Base: $CODES + 0000 : 
3; 139 1128 «#1 
; 160 1129 1 END 
3: «6141 1130 0 ELUDOM | 
| 
| 
3 PSECT SUMMARY | 
: Name Bytes Attributes 
: SCODES 57 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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Library Statistics 


: eoceceon Symbo lg coeeeee- Pages Processing 
: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 27 0 1000 00:02.0 
; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOUNT/OBJ=OBJ$:MOUNT MSRC$:MOUNT/UPDATE=(ENH$: MOUNT) 
3; Size: 57 code + 0 data bytes 

; Run Time: :15.1 

; Elapsed Time: 7: 33.3 

3 Lines/CPU Min: 4504 

3 oneneel Sere) 55427 

; sy Used: 183 pages 

; Compilation Complete 
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